home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / tool_inc.zip / GETFILE2.INT < prev    next >
Text File  |  1989-06-02  |  170b  |  7 lines
  1.  
  2. {$i \tinc\getfile2.dcl}
  3.  
  4. procedure getfiles (pattern:       filestring;
  5.                     var fdir:      filearray;
  6.                     var num:       integer);
  7.